***Figures 6/17/2020 Cooperative agreements***

***Figure 1***
use "C:\Users\matt_zarit\Dropbox\Pitt\Krause_Paper_4_coop_agreements\Tables and Graphics\figure1_graphics_data.dta"

***FIGURE 1*** Time Series Graph

twoway (connected coop_amount year, mcolor(red) lcolor(red) lpattern(dash)), yaxis(1) axis(1) ytitle(Constant Dollars) ytitle(, margin(small)) ylabel(2.00E+09 "$2B" 4.00E+09 "$4B" 6.00E+09 "$6B" 8.00E+09 "$8B" 1.00E+10 "$10B"  1.20E+10 "$10B") ///
|| connected count year, mcolor(blue) lcolor(blue) scheme(sj)


***FIGURE 2***
use "C:\Users\matt_zarit\Dropbox\Executive Particularism (Matt Zarit)\Cooperative Agreements\Empirics\OCTOBER 2020\Data\cooperativeagreements.grantlevel.MANUSCRIPT MODELS.11-06-2020.dta"

gen recipient_type_categorical=0
replace recipient_type_categorical=1 if gov_recip==1 & e(sample)==1
replace recipient_type_categorical=2 if nonprofit_recip==1 & e(sample)==1
replace recipient_type_categorical=3 if private_recip==1 & e(sample)==1
label define recipient_categorical 1 "Govt" 2 "Nonprofit" 3 "Private"
label values recipient_type_categorical recipient_categorical

***Figure 2A***
graph bar (median) constant_fed_funds if e(sample),  ytitle("Median Cooperative Agreement Amount (Constant Dollars)") title("FIGURE 2A: U.S. Federal Agency Cooperative Agreement Awards") subtitle("Disaggregated by Recipient Type") over(recipient_type_categorical)  scheme(sj)


***Figure 2B***

graph bar (mean) zpolicy2_abszero if e(sample), yscale(r(0 2.5)) ylabel(0 0.5 1 1.5 2 2.5) ytitle("Agency Head Policy Expertise") title("FIGURE 2B: U.S. Federal Agency Head Policy Expertise") subtitle("Disaggregated by Recipient Type") over(recipient_type_categorical)  scheme(sj)


***Figure 3***
sum zpolicy2_abszero if e(sample), detail
gen ahpolicyexpertise_type=0
replace ahpolicyexpertise_type=1 if zpolicy2_abszero<=1.452532
replace ahpolicyexpertise_type=2 if zpolicy2_abszero>1.452532 & zpolicy2_abszero<2.501583
replace ahpolicyexpertise_type=3 if zpolicy2_abszero>=2.501583


graph bar (median) fed_funding if e(sample), over(recipient_type_categorical) over(ahpolicyexpertise_type) ytitle("Median Cooperative Agreement Award (Constant Dollars)") title(Figure 3: U.S. Federal Agency Cooperative Agreement Awards) subtitle(Disaggregated by Recipient Type and Level of Agency Head Policy Expertise) scheme(sj)


use "cooperative.agreements.figures.data.11.11.2020.dta"

***FIGURE 4***
twoway (line coef quantile if model==1,  lpattern(dash)) (rarea ll ul quantile if model==1, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 4: Agency Head Policy Expertise Interquartile Range Coefficients, size(medsmall)) legend(off) scheme(sj)


***Figure 5a***
twoway (line coef quantile if model==2,  lpattern(dash)) (rarea ll ul quantile if model==2, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5A: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Non-Government Partner Distinction], size(medsmall)) legend(off) scheme(sj)

***Figure 5b***
twoway (line coef quantile if model==3,  lpattern(dash)) (rarea ll ul quantile if model==3, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5B: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Non-Government Partner, size(medsmall)) legend(off) scheme(sj)


***Figure 6a***
twoway (line coef quantile if model==4,  lpattern(dash)) (rarea ll ul quantile if model==4, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6A: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Nonprofit & Private Sector Partner Distinction], size(medsmall)) legend(off) scheme(sj)



***Figure 6B***
twoway (line coef quantile if model==5,  lpattern(dash)) (rarea ll ul quantile if model==5, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6B: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Nonprofit Partner, size(medsmall)) legend(off) scheme(sj)


***Figure 6C***
twoway (line coef quantile if model==6,  lpattern(dash)) (rarea ll ul quantile if model==6, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6C: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Private Sector Partner, size(medsmall)) legend(off) scheme(sj)



***SUPPORTING INFORMATION DOCUMENT***
***USE SAME DATA FILE***



***FIGURE 5A.i***
twoway (line coef quantile if model==7,  lpattern(dash)) (rarea ll ul quantile if model==7, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5A.i: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Non-Government Partner Distinction], size(medsmall)) legend(off) scheme(sj)


***FIGURE 5A.ii***
twoway (line coef quantile if model==9,  lpattern(dash)) (rarea ll ul quantile if model==9, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5A.ii: Agency Head Managerial Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Non-Government Partner Distinction], size(medsmall)) legend(off) scheme(sj)


***FIGURE 5A.iii***
twoway (line coef quantile if model==11,  lpattern(dash)) (rarea ll ul quantile if model==11, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5A.iii: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Non-Government Partner Distinction], size(medsmall)) legend(off) scheme(sj)




***FIGURE 5B.i***
twoway (line coef quantile if model==8,  lpattern(dash)) (rarea ll ul quantile if model==8, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5B.i: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Non-Government Partner, size(medsmall)) legend(off) scheme(sj)


***FIGURE 5B.ii***
twoway (line coef quantile if model==10,  lpattern(dash)) (rarea ll ul quantile if model==10, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5B.ii: Agency Head Managerial Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Non-Government Partner, size(medsmall)) legend(off) scheme(sj)


***FIGURE 5B.iii***
twoway (line coef quantile if model==12,  lpattern(dash)) (rarea ll ul quantile if model==12, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5B.iii: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Non-Government Partner, size(medsmall)) legend(off) scheme(sj)




***FIGURE 6A.i***
twoway (line coef quantile if model==13,  lpattern(dash)) (rarea ll ul quantile if model==13, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6A.i: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Nonprofit & Private Sector Partner Distinction], size(medsmall)) legend(off) scheme(sj)


***FIGURE 6A.ii***
twoway (line coef quantile if model==16,  lpattern(dash)) (rarea ll ul quantile if model==16, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6A.ii: Agency Head Managerial Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Nonprofit & Private Sector Partner Distinction], size(medsmall)) legend(off) scheme(sj)


***FIGURE 6A.iii***
twoway (line coef quantile if model==19,  lpattern(dash)) (rarea ll ul quantile if model==19, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6A.iii: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Government Partner [Nonprofit & Private Sector Partner Distinction], size(medsmall)) legend(off) scheme(sj)



***Figure 6B.i***
twoway (line coef quantile if model==14,  lpattern(dash)) (rarea ll ul quantile if model==14, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6B.i: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Nonprofit Partner, size(medsmall)) legend(off) scheme(sj)


***Figure 6B.ii***
twoway (line coef quantile if model==17,  lpattern(dash)) (rarea ll ul quantile if model==17, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6B.ii: Agency Head Managerial Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Nonprofit Partner, size(medsmall)) legend(off) scheme(sj)


***Figure 6B.iii***
twoway (line coef quantile if model==20,  lpattern(dash)) (rarea ll ul quantile if model==20, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6B.iii: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Nonprofit Partner, size(medsmall)) legend(off) scheme(sj)



***Figure 6C.i***
twoway (line coef quantile if model==15,  lpattern(dash)) (rarea ll ul quantile if model==15, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6C.i: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Private Partner, size(medsmall)) legend(off) scheme(sj)


***Figure 6C.ii***
twoway (line coef quantile if model==18,  lpattern(dash)) (rarea ll ul quantile if model==18, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6C.ii: Agency Head Managerial Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Private Partner, size(medsmall)) legend(off) scheme(sj)


***Figure 6C.iii***
twoway (line coef quantile if model==21,  lpattern(dash)) (rarea ll ul quantile if model==21, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6C.iii: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Private Partner, size(medsmall)) legend(off) scheme(sj)




****************************************************
****************************************************
*****Supplementary 4*******************************


***Figure 4.iv

twoway (line coef quantile if model==22,  lpattern(dash)) (rarea ll ul quantile if model==22, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 4.iv: Agency Head Policy Expertise Interquartile Range Coefficients, size(medsmall)) subtitle(Sans Non-Agency Controls, size(medsmall)) legend(off) scheme(sj)


***FIGURE 5A.iv***
twoway (line coef quantile if model==23,  lpattern(dash)) (rarea ll ul quantile if model==23, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5A.iv: Agency Head Policy Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Sans Non-Agency Controls; Government Partner [Non-Government Partner Distinction], size(medsmall)) legend(off) scheme(sj)


***FIGURE 5B.iv***
twoway (line coef quantile if model==24,  lpattern(dash)) (rarea ll ul quantile if model==24, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 5B.iv: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Sans Non-Agency Controls; Non-Government Partner, size(medsmall)) legend(off) scheme(sj)



***FIGURE 6A.iv***
twoway (line coef quantile if model==25,  lpattern(dash)) (rarea ll ul quantile if model==25, fcolor(red%50)), ytitle(Interquartile Marginal Effect) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6A.iv: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Sans Non-Agency Controls; Government Partner [Non-Government Partner Distinction], size(small)) legend(off) scheme(sj)



***Figure 6B.iv***
twoway (line coef quantile if model==26,  lpattern(dash)) (rarea ll ul quantile if model==26, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6B.iv: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Sans Non-Agency Controls; Nonprofit Partner, size(medsmall)) legend(off) scheme(sj)


***Figure 6C.iv***
twoway (line coef quantile if model==27,  lpattern(dash)) (rarea ll ul quantile if model==27, fcolor(red%50)), ytitle(Interquartile Marginal Effect ) ytitle(, margin(small)) xtitle(Quantile) xlabel(.05 "0.05" .10 "0.10" .25 "0.25" .50 "0.50" .75 "0.75" .90 "0.90" .95 "0.95", labsize(small)) title(FIGURE 6C.iv: Agency Staff Technical Expertise Interquartile Range Coefficient Effects, size(medsmall)) subtitle(Sans Non-Agency Controls; Private Partner, size(medsmall)) legend(off) scheme(sj)
